home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
014
/
protect.arc
/
PROT.BAS
next >
Wrap
BASIC Source File
|
1984-10-31
|
1KB
|
32 lines
100 ' -- PROT.BAS (DOS 2.0) -- makes files read-only -- by Doug Lankshear
105 ' -- Minor Revisions by Matt Legare
110 Y=0
120 FOR I = 1 TO 80:READ X:Y=Y+X:NEXT I
130 IF Y = 6958 THEN GOTO 190
140 PRINT "Error in data Statements"
150 PRINT "Correct and restart"
160 END
170 '
180 '
190 RESTORE
195 PRINT "Writing PROT.COM to disk in drive A: . Be Patient."
200 OPEN"PROT.COM" FOR OUTPUT AS #1
210 FOR I = 1 TO 80
220 READ X
230 PRINT #1,CHR$(X);
240 NEXT I
250 CLOSE #1
260 PRINT "PROT.COM written to disk in drive A:"
270 END
275 '
280 DATA 190,128,0,254,4,138,28,136
290 DATA 0,184,0,67,185,0,0,186
300 DATA 130,0,205,33,60,2,117,10
310 DATA 180,9,186,48,1,205,33,235
320 DATA 9,144,128,201,1,184,1,67
330 DATA 205,33,195,0,0,0,0,0
340 DATA 66,97,100,32,112,97,116,104
350 DATA 110,97,109,101,32,111,114,32
360 DATA 102,105,108,101,32,110,111,116
370 DATA 32,102,111,117,110,100,13,36